home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / P / phantomGallery.cpt / PhantomGallery / card_3775.txt < prev    next >
Text File  |  1989-09-13  |  7KB  |  313 lines
  1. -- card: 3775 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 2624
  5. -- name: master
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0002
  11. -- rect: left=172 top=296 right=317 bottom=435
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 20
  16. -- text size: 14
  17. -- style flags: 256
  18. -- line height: 17
  19. -- part name: Title
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 01
  24. -- high flags: 0002
  25. -- rect: left=437 top=296 right=317 bottom=510
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 20
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 17
  33. -- part name: Date
  34.  
  35.  
  36. -- part 3 (field)
  37. -- low flags: 01
  38. -- high flags: 0002
  39. -- rect: left=172 top=319 right=340 bottom=435
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 20
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 17
  47. -- part name: Artist(s)
  48.  
  49.  
  50. -- part 4 (field)
  51. -- low flags: 01
  52. -- high flags: 0002
  53. -- rect: left=437 top=319 right=340 bottom=510
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 20
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 17
  61. -- part name: Price
  62.  
  63.  
  64. -- part 5 (field)
  65. -- low flags: 00
  66. -- high flags: 0000
  67. -- rect: left=0 top=293 right=337 bottom=82
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 20
  72. -- text size: 18
  73. -- style flags: 10496
  74. -- line height: 19
  75. -- part name: 
  76.  
  77.  
  78. -- part 7 (button)
  79. -- low flags: 00
  80. -- high flags: 2000
  81. -- rect: left=80 top=296 right=317 bottom=101
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 23668 / 23668
  84. -- text alignment: 1
  85. -- font id: 0
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: Home
  90. ----- HyperTalk script -----
  91. on mouseUp
  92.   visual iris close
  93.   go home
  94. end mouseUp
  95.  
  96.  
  97.  
  98. -- part 9 (button)
  99. -- low flags: 00
  100. -- high flags: 2000
  101. -- rect: left=103 top=319 right=340 bottom=124
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 6033 / 6033
  104. -- text alignment: 1
  105. -- font id: 0
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: Catalogue
  110. ----- HyperTalk script -----
  111. on mouseUp
  112.   if the optionKey is down then doCatalog
  113.   else
  114.     lock screen
  115.     put the script of bg id 2624 into theList
  116.     ShowDialog 7,5002,prompt,geneva,9,theList,0,"one",61,29
  117.     if the result is empty then exit mouseUp
  118.     put line 2 of the result into theTarget
  119.     go cd theTarget
  120.     unlock screen with dissolve
  121.   end if
  122. end mouseUp
  123.  
  124.  
  125.  
  126. -- part 10 (button)
  127. -- low flags: 00
  128. -- high flags: 2000
  129. -- rect: left=80 top=319 right=340 bottom=101
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 11987 / 11987
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: Sort
  138. ----- HyperTalk script -----
  139. on mouseUp
  140.   put "How would you like to sort phantomGallery's catalogue?" into promptStr
  141.   ShowDialog 1,2222,promptStr,TRUE
  142.   if the result=1 then
  143.     sort by word 1 of cd fld "Title"
  144.     doCatalog
  145.   else if the result=3 then
  146.     sort by cd fld "Date"
  147.     doCatalog
  148.   end if
  149. end mouseUp
  150.  
  151.  
  152. -- part 12 (button)
  153. -- low flags: 00
  154. -- high flags: 2000
  155. -- rect: left=149 top=319 right=340 bottom=170
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 4349 / 4349
  158. -- text alignment: 1
  159. -- font id: 0
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 16
  163. -- part name: About...
  164. ----- HyperTalk script -----
  165. on mouseUp
  166.   CreditsDialog 5118,20021,20022
  167. end mouseUp
  168.  
  169.  
  170. -- part 13 (button)
  171. -- low flags: 00
  172. -- high flags: 2000
  173. -- rect: left=103 top=296 right=317 bottom=124
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 29773 / 29773
  176. -- text alignment: 1
  177. -- font id: 0
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: Add Card
  182. ----- HyperTalk script -----
  183. on mouseUp
  184.   lock screen
  185.   ask "Please name the new image..." with "Image" & (the ticks)
  186.   if it is empty then exit mouseUp
  187.   put it into newCdName
  188.   set cursor to busy
  189.   push cd
  190.   go cd 1
  191.   doMenu "Copy Card"
  192.   set cursor to busy
  193.   pop cd
  194.   doMenu "Paste Card"
  195.   set cursor to busy
  196.   repeat with cycle = 1 to 4
  197.     set the lockText of cd fld cycle to false
  198.   end repeat
  199.   set the cantDelete of this cd to false
  200.   choose select tool
  201.   type "A" with cmdkey
  202.   doMenu "Clear Picture"
  203.   choose browse tool
  204.   set cursor to busy
  205.   set name of this cd to newCdName
  206.   put newCdName into cd fld 1
  207.   unlock screen with dissolve
  208. end mouseUp
  209.  
  210.  
  211.  
  212. -- part 16 (button)
  213. -- low flags: 00
  214. -- high flags: 2002
  215. -- rect: left=149 top=296 right=317 bottom=170
  216. -- title width / last selected line: 0
  217. -- icon id / first selected line: 113 / 113
  218. -- text alignment: 1
  219. -- font id: 0
  220. -- text size: 12
  221. -- style flags: 0
  222. -- line height: 16
  223. -- part name: HyperScan
  224. ----- HyperTalk script -----
  225. on mouseUp
  226.   visual iris open
  227.   go cd HalfTone of stack HyperScan
  228. end mouseUp
  229.  
  230.  
  231.  
  232. -- part 17 (button)
  233. -- low flags: 00
  234. -- high flags: 2002
  235. -- rect: left=126 top=296 right=317 bottom=147
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 32564 / 32564
  238. -- text alignment: 1
  239. -- font id: 0
  240. -- text size: 12
  241. -- style flags: 0
  242. -- line height: 16
  243. -- part name: Install...
  244. ----- HyperTalk script -----
  245. on mouseUp
  246.   lock screen
  247.   select bg btn "SaveToPhG"
  248.   doMenu "Copy Button"
  249.   go cd "HalfTone" of stack "HyperScan"
  250.   repeat with i = 1 to the number of btns
  251.     if short name of btn i = "SaveToPhG" then
  252.       go back
  253.       choose browse tool
  254.       beep 1
  255.       ShowDialog 1,2119,"Yow! The Save To phantomGallery... button is already there!",TRUE
  256.       hide menuBar
  257.       unlock screen with dissolve
  258.       exit mouseUp
  259.     end if
  260.   end repeat
  261.   doMenu "Paste Button"
  262.   set the rect of btn "SaveToPhG" to 231,146,281,196
  263.   choose browse tool
  264.   set cursor to hand
  265.   unlock screen
  266.   get the mouseClick
  267.   answer "drag button to a comfy spot & click."
  268.   repeat until the mouseClick
  269.     set loc of btn "SaveToPhG" to the mouseLoc
  270.   end repeat
  271. end mouseUp
  272.  
  273.  
  274.  
  275. -- part 20 (button)
  276. -- low flags: 00
  277. -- high flags: 2000
  278. -- rect: left=126 top=319 right=340 bottom=147
  279. -- title width / last selected line: 0
  280. -- icon id / first selected line: 30903 / 30903
  281. -- text alignment: 1
  282. -- font id: 0
  283. -- text size: 12
  284. -- style flags: 0
  285. -- line height: 16
  286. -- part name: Help
  287. ----- HyperTalk script -----
  288. on mouseUp
  289.   ShowDialog 5,4746,3
  290. end mouseUp
  291.  
  292.  
  293.  
  294. -- part contents for card part 5
  295. ----- text -----
  296. phantom
  297. Gallery2
  298.  
  299. -- part contents for card part 1
  300. ----- text -----
  301. master
  302.  
  303. -- part contents for card part 2
  304. ----- text -----
  305. date
  306.  
  307. -- part contents for card part 3
  308. ----- text -----
  309. artist(s)
  310.  
  311. -- part contents for card part 4
  312. ----- text -----
  313. price